CicodeVBA .............................................................................

Sub SelectPostgreSQL()
   Dim objConnection As Object
   Dim objRecordset As Object
   Dim ConnectionString As string
   Set objConnection = CreateObject("ADODB.Connection")
   Set objRecordset = CreateObject("ADODB.Recordset")

   ConnectionString = "DSN=PostgreSQL35W"		
   objConnection.Open ConnectionString
   objRecordset.CursorLocation = 3
   objRecordset.Open "SELECT * FROM public.""MyTable""" , objConnection, 3, 3
   objRecordSet.MoveFirst
   Dim strResults As string
   Do Until objRecordset.EOF
   	strResults = objRecordset.Fields(1).Value
   	Print("Value: " & strResults)
    objRecordset.MoveNext
   Loop

   objRecordset.Close
   objConnection.Close
   Set objConnection = Nothing
   Set objRecordset = Nothing
End Sub 

Cicode ................................................................................

FUNCTION ConnectDataBaseMySQL()
    INT hSQL , Status , i , id , intRows ;
    REAL sValue ;
    STRING sQuery, stringId , stringValue;

    hSQL = SQLConnect("DSN=MySQL");
    IF hSQL <> -1 THEN
    	sQuery = "select idregistros , value from wincc.registros";
        Status = SQLGetRecordset(hSQL , sQuery );
        IF Status <> -1 THEN
          intRows = SQLRowCount(Status);
          FOR i=0 TO intRows - 1 DO
          	stringId = SQLGetField(hSQL , "idregistros", i);
            stringValue= SQLGetField(hSQL , "value" , i);
            DebugMsg("Id: " + stringId + " Value: " + stringValue + "");
          END
          SQLEnd(Status );
        ELSE
            Message("Information", SQLErrMsg(), 48);
        END
        SQLDisconnect(hSQL);
    ELSE
        Message("Information", SQLErrMsg(), 48);
    END 
END